home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / vqstrng.exe / VQDEMO.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-05-15  |  1.7 KB  |  57 lines
  1. '------ VqString function declarations
  2.  
  3. Declare Function VqVarLenStr Lib "vqstring.dll" (ByVal strng As String, ByVal Handle As Integer, ByVal Page As Long, ByVal Mode As Long) As Long
  4. Declare Function VqFixLenStr Lib "vqstring.dll" (ByVal strng As String, ByVal Handle As Integer, ByVal Page As Long, ByVal Mode As Long) As Long
  5.  
  6. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags%) As Long
  7. Declare Function GetWinFlags Lib "Kernel" () As Long
  8. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
  9.  
  10. '------ Constants for VqString calls
  11.  
  12. Global Const VqVarGetSize = -1
  13. Global Const VqGetString = -2
  14. Global Const VqPutString = -3
  15. Global Const VqUbound = -4
  16. Global Const VqVarMemUsed = -5
  17. Global Const VqVarMemFree = -6
  18. Global Const VqEraseString = -7
  19.  
  20. '------ VqString error codes
  21.  
  22. Global Const IllegalFunctionCall = -5
  23. Global Const OutOfMemory = -7
  24. Global Const SubscriptOutOfRange = -9
  25. Global Const OutOfStringSpace = -14
  26.  
  27. '------ Global error variable for VqStrings
  28. Global VqError As Integer
  29.  
  30. '------ Misc constants for demo
  31.  
  32. Global Const Default = 0
  33. Global Const FixedMode = 2
  34. Global Const HourGlass = 11
  35. Global Const ScrollBar = 2
  36. Global Const TextOne = 1
  37. Global Const TextTwo = 3
  38. Global Const VariableMode = 1
  39.  
  40. Global BufSize  As Long
  41. Global Elements As Long
  42. Global ForceDelete As Integer
  43. Global LastControl As Integer
  44. Global Mode As Integer
  45. Global SaveHScroll1Value As Integer
  46. Global SaveText1Text As String
  47. Global ScrollEvent As Integer
  48. Global Test As String
  49.  
  50. Global Const True = -1
  51. Global Const False = 0
  52. Global Const IDOK = 1
  53. Global Const IDCANCEL = 2
  54. Global Const WF_ENHANCED = &H20
  55. Global Const HELP_CONTEXT = &H1
  56.  
  57.